home *** CD-ROM | disk | FTP | other *** search
/ Gekkan Dennou Club 145 / Gekkan Dennou Club - 2000.6 Vol. 145 (Japan).7z / Gekkan Dennou Club - 2000.6 Vol. 145 (Japan) (Track 1).bin / docs / perl / avltest.pl next >
Perl Script  |  2000-04-22  |  707b  |  42 lines
  1. #
  2. # 二分探索木のテスト
  3. #
  4. use Avltree;
  5.  
  6. package Number;
  7.  
  8. sub new {
  9.   my ($type, $num) = @_;
  10.   my $obj = { 'value' => $num };
  11.   bless $obj, 'Number';
  12.   $obj;
  13. }
  14.  
  15. sub compare {
  16.   my ($obj1, $obj2) = @_;
  17.   $obj1->{'value'} <=> $obj2->{'value'};
  18. }
  19.  
  20. sub print_object {
  21.   my $obj = shift;
  22.   print $obj->{'value'}, "\n";
  23. }
  24.  
  25. package main;
  26.  
  27. $root = Bintree->make_tree();
  28. for( $i = 1; $i <= 7; $i++ ){
  29.   my $obj = Number->new( $i );
  30.   $root = $root->insert_tree( $obj );
  31. }
  32. $root->print_tree_test( 0 );
  33.  
  34. $root = Avltree->make_tree();
  35. for( $i = 1; $i <= 7; $i++ ){
  36.   my $obj = Number->new( $i );
  37.   $root = $root->insert_tree( $obj );
  38. }
  39. $root->print_tree_test( 0 );
  40.  
  41. # end of file
  42.